(calcFunc-ln): In symbolic manipulations,

ln(-1) should be i*pi, not pi.

diff --git a/lisp/calc/calc-alg.el b/lisp/calc/calc-alg.el
index f1a08c7e23531f28e822787a9acc044e0fd7f6f0..0a3634b1db5ae8d6b7c02c3d3093e68ee9088318 100644 (file)
--- a/lisp/calc/calc-alg.el
+++ b/lisp/calc/calc-alg.el
@@ -1085,7 +1085,7 @@
       (and calc-symbolic-mode
           (math-known-negp (nth 1 expr))
           (math-add (list 'calcFunc-ln (math-neg (nth 1 expr)))
-                    '(var pi var-pi)))
+                    '(* (var pi var-pi) (var i var-i))))
       (and calc-symbolic-mode
           (math-known-imagp (nth 1 expr))
           (let* ((ip (calcFunc-im (nth 1 expr)))